home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / pascal / swag / win-os2.swg / 0035_Using lzexpand.dll.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-25  |  892 b   |  33 lines
  1. {
  2. From: mav@dseg.ti.com (Michael Vincze)
  3.  
  4. >Does anyone know how to use the decompression tool
  5. >incorporated into MS-Windows (lzexpand.dll) in BP7?
  6.  
  7. Here's an example.  Note that you can only do decompression and not
  8. compression :^(
  9. }
  10.   function CopyLZ (FileIn, FileOut: PChar): LongInt;
  11.   var
  12.     HandleIn  : Integer;
  13.     HandleOut : Integer;
  14.     StructIn  : TOFStruct;
  15.     StructOut : TOFStruct;
  16.     ReturnCode: LongInt;
  17.   begin
  18.   HandleIn := LZOpenFile (FileIn, StructIn, OF_READ);
  19.   ReturnCode := LongInt (HandleIn);
  20.   if (HandleIn > -1) then
  21.     begin
  22.     HandleOut := LZOpenFile (FileOut, StructOut, OF_CREATE or OF_WRITE);
  23.     ReturnCode := LongInt (HandleOut);
  24.     if (HandleOut > -1) then
  25.       begin
  26.       ReturnCode := LZCopy (HandleIn, HandleOut);
  27.       LZClose (HandleOut);
  28.       end;
  29.     end;
  30.   LZClose (HandleIn);
  31.   CopyLZ := ReturnCode;
  32.   end;
  33.